home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / testfiles / TestPlot3 < prev    next >
Text File  |  2002-10-27  |  802b  |  38 lines
  1. testPen <- Pen new: 'Test The Plot3 Functions'
  2.  
  3. testPen openPlotEnv: 400 @ 250
  4. testPen setPens: 2 @ 0
  5.  
  6. testPen drawText: 'Some Sample Label-making' at: 10 @ 18
  7. testPen drawText: 'Test Text Clipping...' at: 300 @ 38
  8.  
  9. testPen setPens: 4 @ 0
  10. testPen drawBox: 20 @ 28 to: 380 @ 240
  11.  
  12. testPen setPens: 8 @ 0
  13. testPen drawCircleAt: 200 @ 125 radius: 50
  14.  
  15. testPen direction: 1
  16. testPen      goTo: 200 @ 125
  17. testPen   setPens: 7 @ 0
  18.  
  19. showTest <- ShowPen new
  20.  
  21. showTest withPen: testPen
  22.  
  23. showTest  spiral: 50  angle: 1.04
  24.  
  25. showTest    poly: 7  length: 50
  26.  
  27. testPen  setPens: 5 @ 0
  28.  
  29. testPen setLineType: 16rFAFA "<- 64250 = a dashed line." 
  30.  
  31. testPen drawBox:  30 @ 40 to: 350 @ 200
  32. testPen drawLine: 10 @ 30 to: 300 @ 240
  33.  
  34. testPen location
  35. testPen extent
  36.  
  37. testPen movePlotEnvBy: 30 @ 20 "Move the entire Plot Window."
  38.